home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 23
/
Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso
/
Aminet
/
dev
/
src
/
CdBS_KQSrc0_3.lha
/
KaliosysQuantrum
/
Gui.i
< prev
next >
Wrap
Text File
|
1997-11-01
|
3KB
|
105 lines
*
* CdBSian Obviously Universal & Interactive Nonsense (COUIN)
* (Absurdité CdBSienne Manifestement Universelle et Interactive)
* ©1997, CdBS Software (MORB)
* Include file for gui stuff
* $Id: Gui.i 0.9 1997/09/28 17:12:17 MORB Exp MORB $
*
NbGuiPlanes = 2
GuiBufferHeight = 256
GuiBufferWidth = 80
GuiLineSize = GuiBufferWidth*NbGuiPlanes
GuiBufferSize = GuiLineSize*GuiBufferHeight
GuiModulo = GuiLineSize-80
GuiSelBufferHeight = 256
GuiSelBufferWidth = 40
GuiSelLineSize = GuiSelBufferWidth*NbPlanes
GuiSelBufferSize = GuiSelLineSize*GuiSelBufferHeight
GuiSelModulo = GuiSelLineSize-40
HotPointX = 1
HotPointY = 1
GuiHorSpacing = 2
GuiVerSpacing = 1
GuiScreenWidth = (GuiBufferWidth-4)*8
rsreset
GuiDomain rs.b 0
gd_Left rs.l 1
gd_Right rs.l 1
gd_Top rs.l 1
gd_Bottom rs.l 1
gd_Width rs.l 1
gd_Height rs.l 1
gd_Size rs.l 1
rsreset
GuiEntry rs.b 0
ge_Class rs.l 1
ge_Data rs.l 1
ge_Data2 rs.l 1
ge_Data3 rs.l 1
ge_Hook rs.l 1
ge_ID rs.l 1
ge_Temp rs.l 1
ge_Temp2 rs.l 1
ge_Temp3 rs.l 1
ge_Next rs.l 1
ge_MinWidth rs.l 1
ge_MinHeight rs.l 1
ge_MaxWidth rs.l 1
ge_MaxHeight rs.l 1
ge_Domain rs.b gd_Size
ge_Size rs.b 0
rsreset
GuiClass rs.b 0
gc_GetMinMax rs.l 1
gc_Layout rs.l 1
gc_Render rs.l 1
gc_Click rs.l 1
gc_Size rs.b 0
rsreset
ListViewEntry rs.b 0
lve_Next rs.l 1
lve_Prev rs.l 1
lve_String rs.l 1
lve_Color rs.l 1
lve_Size rs.b 0
GENTRY macro ; gentry class,data,hook,[ID],[data2],[data3],[data4]
dc.l \1,\2
IFLT NARG-5
dc.l 0
ELSE
dc.l \5
ENDIF
IFLT NARG-6
dc.l 0
ELSE
dc.l \6
ENDIF
dc.l \3
IFLT NARG-4
dc.l 0
ELSE
dc.l \4
ENDIF
ds.b ge_Size-24
endm
GEND macro
ds.b ge_Size
endm